Failat 10
RequestChoice TITLE "Save Theme" BODY "Save all current GUI preferences?" GADGETS "Save" "Cancel" >T:SaveTheme.dat
Search T:SaveTheme.dat SEARCH "0" >NIL:
If WARN
   Copy env:sys/GUI.prefs TO envarc:sys QUIET
   Copy env:sys/Font.prefs TO envarc:sys QUIET
   Copy env:sys/WBPattern.prefs TO envarc:sys QUIET
   Copy env:sys/Palette.prefs TO envarc:sys QUIET
   Copy env:sys/Workbench.prefs TO envarc:sys QUIET
endif
Delete T:SaveTheme.dat QUIET
